home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMUG Revelations
/
BMUG Revelations.toast
/
Programming
/
Programming Languages
/
Yerk 3.64
/
Module source
/
about
next >
Wrap
Text File
|
1992-05-18
|
902b
|
36 lines
:MODULE aboutMod
// pictures
0 value eye
: makepicture heap> picture -> eye ;
: blue 409 call forecolor ;
scon about0 " formerly Neon by Kriya"
scon about1 " Maintained by R. F. Loewenstein"
scon about2 " Dept. of Astronomy & Astrophysics"
scon about3 " University of Chicago"
scon about4 " Yerkes Observatory"
scon about5 " 414-245-5555"
scon about6 " rfl@yerkes.uchicago.edu
: .about blue 0 getres YERK >ptr count bl emit type cr
about0 type cr
about1 type cr about2 type cr about3 type cr about4 type cr
about5 type cr about6 type ;
: about { \ hwind -- } " aboutMod.bin" openresfile
makepicture
heap> window -> hwind
70 70 460 190 put: temprect
temprect " " dlgwind true false new: hwind
select: hwind -curs
0 5 -32765 disp: eye
-160 -10 >origin
home .about
waitclick close: hwind
dispose> hwind dispose> eye 0 tmode 0 tface ;
;MODULE